home *** CD-ROM | disk | FTP | other *** search
/ Light ROM 3 / Light ROM 3 - Disc 2.iso / programs / amiga / macromkr / adpromac.lha / $MAKEANIM.adpro < prev    next >
Text File  |  1993-09-30  |  1KB  |  59 lines
  1. /* This simple program  creates a Pencil Test Animation
  2. ** Copyright 1992 Midgard Graphics.All Rights Reserved.
  3. **Written by PETER GRECI
  4. */
  5.  
  6. address "ADPro"
  7. NL = "0A"X
  8. options results
  9. GETFILE '"Name of Sequence"' 'EH0:'
  10. TheFile = adpro_result
  11. np = index(TheFile,".FS.")
  12.  
  13. TheFile = left(TheFile,np-1)
  14.  
  15. getnumber '"Number of Frames"||NL||"To Process"' 1 1 9999
  16. nof=adpro_result
  17.  
  18. GETDIR '"Destination For Animation"' 'EH0:'
  19. dest = adpro_result
  20. IF RIGHT(dest,1) ~= ':' THEN dest = dest || '/'
  21.  
  22. GETSTRING '"Name for Animation"'
  23. name = adpro_result
  24.  
  25. animname = dest||name
  26.  
  27. SFORMAT "ANIM"
  28.  
  29. DO fn = 1 TO nof
  30.  
  31. if fn < 10 then LoadFile = Thefile||"00"||fn||".FS."
  32. else if fn > 9 & fn < 100 then LoadFile = TheFile||"0"||fn||".FS."
  33. else LoadFile = TheFile||fn||".FS."
  34.  
  35.  
  36.  
  37. lformat "UNIVERSAL"
  38. load LoadFile
  39.  
  40.  
  41. ABS_SCALE 640 400
  42. EXECUTE
  43.  
  44. PSTATUS LOCKED
  45. RENDER_TYPE 16
  46. SCREEN_TYPE 3
  47. DITHER 6 
  48. DITHER_AMOUNT 20
  49. EXECUTE
  50.  
  51.  
  52. SFORMAT "ANIM"
  53. if fn < nof then SAVE animname "APPEND"  "IMAGE" "FAST"  
  54. else SAVE animname "QUIT" "IMAGE" "FAST"
  55.  
  56. end
  57.  
  58. exit
  59.